home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / vudu31q.zip / VUDU.INC < prev    next >
Text File  |  1992-05-28  |  6KB  |  138 lines
  1. '** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
  2. ' This header file is to be included in ALL programs using the utilities
  3. ' in the VUDU windowing libraries.  Include the following line in your
  4. ' program:                REM $INCLUDE: 'VUDU.INC'
  5. '
  6. '                VUDU INCLUDE FILE FOR QuickBASIC Version
  7. '
  8. '                Copyright (c) 1991, 1992 Binary Systems
  9. '** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **
  10.  
  11. '-----------------------------------------------------------------------
  12. '               VUDU BASIC DECLARATIONS
  13. '-----------------------------------------------------------------------
  14. DECLARE FUNCTION ATTRIB% (fg%, bg%)
  15. DECLARE FUNCTION BARMENU$ (MenuLine$(), Items$(), MenuSlct%, ItemSlct%)
  16. DECLARE SUB BRIDGE (row%, col1%, col2%, Bor%)
  17. DECLARE FUNCTION CLICK$ ()
  18. DECLARE FUNCTION CM% (kolor%, mkolor%)
  19. DECLARE SUB COLMON (fg%, bg%)
  20. DECLARE FUNCTION DATIN$ (Daytype%)
  21. DECLARE SUB DEFBAR (BFG%, BBG%, BCHAR%, BCLR%)
  22. DECLARE SUB DEFWIN (HedFG%, HedBG%, BorFG%, BorBG%, WinFG%, WinBG%, Border%, Shadow%)
  23. DECLARE SUB FLUSHKEY ()
  24. DECLARE FUNCTION GETCH$ ()
  25. DECLARE SUB HILITE (RowNum%, ColNum%, Length%, attr%)
  26. DECLARE SUB HILITV (RowNum%, ColNum%, Length%, attr%)
  27. DECLARE FUNCTION INFIELD$ (Receiving$, FieldLen%)
  28. DECLARE FUNCTION ISMOUSE% ()
  29. DECLARE FUNCTION MAKEMENU$ (MRow%, MCol%, MenuClear%, MHeader$, Choices$(), ItemSelect%)
  30. DECLARE FUNCTION MESSAGE$ (row%, Col%, MesHed$, Msg$(), Choice$, pause%, Msgclear%)
  31. DECLARE FUNCTION MONOVID%
  32. DECLARE SUB MOUSEAREA (r1%, c1%, r2%, c2%)
  33. DECLARE SUB MOUSEOFF
  34. DECLARE SUB MOUSEON
  35. DECLARE FUNCTION MOUSEPOLL% ()
  36. DECLARE SUB MOUSEXY (r%, c%)
  37. DECLARE SUB OPENWIN (LRow%, LCol%, RRow%, RCol%, header$)
  38. DECLARE SUB PRINTS (StrVar$, RowNum%, ColNum%, attr%)
  39. DECLARE SUB PRINTV (StrVar$, RowNum%, ColNum%, attr%)
  40. DECLARE SUB RESCREEN (StrVar$)
  41. DECLARE SUB RESWIN (WinVar$, LRow%, LCol%)
  42. DECLARE SUB SAVWIN (WinVar$, LRow%, LCol%, RRow%, RCol%)
  43. DECLARE SUB SAVSCREEN (StrVar$)
  44. DECLARE SUB SCROLL (lr%, LC%, rr%, rc%, direction%)
  45. DECLARE FUNCTION SCROLLMENU$ (LRow%, LCol%, Brow%, SclSav%, Items$(), header$, Choice%)
  46. DECLARE SUB SETBAR (MenuLine$())
  47. DECLARE SUB SETMOUSE (r%, c%)
  48. DECLARE SUB VCLS (row1%, col1%, row2%, col2%, attr%)
  49. DECLARE SUB VCOLOR (fgnd%, bkgnd%)
  50. DECLARE FUNCTION VIDCARD%
  51. DECLARE SUB VINIT ()
  52. DECLARE SUB VSLEEP (seconds%)
  53. '-----------------------------------------------------------------------
  54.  
  55. '-----------------------------------------------------------------------
  56. '       COLOR CONSTANTS
  57. '-----------------------------------------------------------------------
  58. CONST BLK = 0, BLU = 1, GRN = 2, CYN = 3
  59. CONST RED = 4, MAG = 5, YEL = 6, WHT = 7
  60. CONST BRITE = 8, FLASH = 16
  61.  
  62. '-----------------------------------------------------------------------
  63. '       OPENWIN CONSTANTS FOR WINDOW BORDERS
  64. '-----------------------------------------------------------------------
  65. CONST NONE = 1
  66. CONST THIN = 2
  67. CONST PAIR = 3
  68. CONST ILINE = 4
  69. CONST HLINE = 5
  70. CONST THICK = 6
  71. '-----------------------------------------------------------------------
  72. '       CONSTANTS FOR SCROLLING DIRECTION AND LABEL POSITIONS
  73. '-----------------------------------------------------------------------
  74. CONST LEFT = 0, RIGHT = 1
  75. CONST UP = 2, DOWN = 3
  76. CONST CENTER = 4
  77.  
  78. '-----------------------------------------------------------------------
  79. '       VIDEO CARD CONSTANTS
  80. '-----------------------------------------------------------------------
  81. CONST MONO = 1, CGA = 2, EGA = 3, VGA = 4
  82.  
  83. '-----------------------------------------------------------------------
  84. '       DATIN CONSTANTS
  85. '-----------------------------------------------------------------------
  86. CONST MMDDYY = 0, MMDDYYYY = 1, YYMMDD = 2, DDMMYY = 3
  87.  
  88. '-----------------------------------------------------------------------
  89. '       ADDITIONAL CHARACTER CONSTANTS
  90. '-----------------------------------------------------------------------
  91. CONST ESC = "", BKSP = ""
  92. CONST YES = -1, NO = NOT YES
  93. CONST TRUE = YES, FALSE = NO
  94.  
  95. ' Pseudo Constants
  96. COMMON SHARED NULL AS STRING * 1
  97. COMMON SHARED CR AS STRING * 1
  98. COMMON SHARED PgUp AS STRING * 2
  99. COMMON SHARED PgDn AS STRING * 2
  100. COMMON SHARED UpKey AS STRING * 2
  101. COMMON SHARED DnKey AS STRING * 2
  102. COMMON SHARED LKey AS STRING * 2
  103. COMMON SHARED RKey AS STRING * 2
  104. COMMON SHARED Ins AS STRING * 2
  105. COMMON SHARED Del AS STRING * 2
  106. COMMON SHARED HomeKey AS STRING * 2
  107. COMMON SHARED EndKey AS STRING * 2
  108.  
  109.  
  110. ' Declare Global Switches
  111. COMMON SHARED Vmouse AS INTEGER        'mouse enabled Y/N
  112. COMMON SHARED FirstLet AS INTEGER      'Hilite Color of "hotkey" letter
  113. COMMON SHARED LabelPos AS INTEGER      'Position of label on window
  114. COMMON SHARED ScrollAttrib AS INTEGER  'Scroll Color
  115. COMMON SHARED EscEnable AS INTEGER     'Allow ESC from menus Y/N
  116. COMMON SHARED ExtInfield AS INTEGER    'Allow exit on extended
  117.                        'keypress from INFIELD Y/N
  118.  
  119. 'Variables for Defining Windows
  120. COMMON SHARED HedFG  AS INTEGER, HedBG  AS INTEGER
  121. COMMON SHARED BorFG  AS INTEGER, BorBG  AS INTEGER
  122. COMMON SHARED WinFG  AS INTEGER, WinBG  AS INTEGER
  123. COMMON SHARED Border AS INTEGER
  124. COMMON SHARED Shadow AS INTEGER
  125.  
  126.     'BarMenu Parameters
  127. COMMON SHARED BarFG  AS INTEGER
  128. COMMON SHARED BarBG  AS INTEGER
  129. COMMON SHARED BarChar AS INTEGER
  130. COMMON SHARED BarClear AS INTEGER
  131. COMMON SHARED BarOn AS INTEGER
  132.  
  133. 'Input Field color globals
  134. COMMON SHARED Vfgnd AS INTEGER, Vbkgnd AS INTEGER
  135.  
  136. '------------------------------ end VUDU.INC --------------------------------
  137.  
  138.